﻿Imports System
Imports System.Data
Imports Comunes
Partial Class AppFront_LoginAjax
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim v_obj_wsService As New Service.Service
        Dim v_obj_clsParametros As New Parametros()
        Dim v_obj_clsLibreria As New clsLibreria()
        Dim v_dts_respuesta As New DataSet
        Dim v_obj_json As New clsJsonSR.clsJsonSR()
        Dim v_obj_clsErrores As New cls_errores()
        Dim v_str_keyConn As String = System.Configuration.ConfigurationManager.AppSettings.Get("KeyConexion")
        Dim v_str_glsError As String = ""
        Dim v_str_srcError As String = ""
        Dim v_str_wsError As String = ""
        Dim v_str_metError As String = ""
        Dim v_str_numError As String = ""
        Try
            v_obj_clsParametros.Limpiar()
            v_obj_clsParametros.Agregar("USUS_USUARIO", Request.Form("usuario"))
            v_obj_clsParametros.Agregar("USUS_PASSWORD", Request.Form("Password"))
            v_obj_clsParametros.Agregar("SESE_REMOTE_ADDR", Request.ServerVariables("REMOTE_ADDR"))
            v_obj_clsParametros.Agregar("SESE_REMOTE_USER", Request.ServerVariables("REMOTE_USER"))
            v_obj_clsParametros.Agregar("SESE_REMOTE_HOST", Request.ServerVariables("REMOTE_HOST"))
            v_obj_clsParametros.Agregar("SESE_USER_AGENT", Request.ServerVariables("HTTP_USER_AGENT"))
            v_obj_clsParametros.Agregar("SESE_LANGUAGE", Request.ServerVariables("HTTP_ACCEPT_LANGUAGE"))
            v_obj_clsParametros.Agregar("SESE_REFERER", Request.ServerVariables("HTTP_REFERER"))
            v_obj_clsParametros.Agregar("SESE_COOKIE", Request.ServerVariables("HTTP_COOKIE"))
            v_obj_clsParametros.Agregar("SESE_HOST", Request.ServerVariables("HTTP_HOST"))
            v_dts_respuesta = v_obj_wsService.EjecutarConParametroXML(v_str_keyConn, v_obj_clsParametros.GeneraDocXML("parametros"), "SPBS_USUS_VALIDA_USUARIO")
            If v_obj_clsLibreria.RevisaErrores(v_dts_respuesta, v_str_glsError, v_str_srcError, v_str_wsError, v_str_metError, v_str_numError) = "0" Then
                If v_dts_respuesta.Tables(0).Rows(0).Item("NUM_ERROR").ToString() = "0" Then
                    Session("SESE_NID") = v_dts_respuesta.Tables(0).Rows(0).Item("GLS_ERROR").ToString()
                    Response.Write(v_obj_json.respuestaFormularioJson(True, v_dts_respuesta.Tables(0), v_obj_clsErrores))
                Else
                    Response.Write(v_obj_json.respuestaFormularioJson(True, v_dts_respuesta.Tables(0), v_obj_clsErrores))
                End If
            Else
                v_obj_clsErrores.id = v_str_numError
                v_obj_clsErrores.desc = v_str_glsError
                v_obj_clsErrores.metodo = "Login"
                v_obj_clsErrores.clase = "Load"
                v_obj_clsErrores.registraErrorEnLog()
                Response.Write(v_obj_json.respuestaFormularioJson(False, Nothing, v_obj_clsErrores))
            End If
        Catch ex As Exception
            v_obj_clsErrores.id = -1000
            v_obj_clsErrores.desc = ex.Message
            v_obj_clsErrores.metodo = "Login"
            v_obj_clsErrores.clase = "Load"
            v_obj_clsErrores.registraErrorEnLog()
            Response.Write(v_obj_json.respuestaFormularioJson(False, Nothing, v_obj_clsErrores))
        Finally
            v_obj_clsParametros.Dispose()
            v_obj_clsParametros = Nothing
            v_obj_clsLibreria.Dispose()
            v_obj_clsLibreria = Nothing
            v_dts_respuesta = Nothing
        End Try
    End Sub
End Class
